home *** CD-ROM | disk | FTP | other *** search
/ Apple Reference & Presen… 1994 February Supplement / ARPL-Feb-94-Supplement-PowerPC.iso / 3rd Party PowerPC Demo Apps / Aldus FreeHand / Aldus FreeHand 4.0 TV / Aldus FreeHand 4.0 TV.rsrc / Post_1086 < prev    next >
Encoding:
Text File  |  1994-01-25  |  2.7 KB  |  130 lines
  1. %. Error handling code - don't do this if printing to hi res imagesetter
  2. printerRes 1000 lt
  3. { 
  4.  userdict /agd_noerryet true put
  5.  errordict
  6.  /handleerror
  7.  { 
  8. $error begin 
  9. /prt{dup type /stringtype ne{=string cvs}if show}def
  10. newerror
  11. {
  12. /newerror false store 
  13. systemdict begin
  14. grestoreall initgraphics
  15. end
  16. userdict /agd_noerryet get
  17. {
  18. { 
  19. userdict /agd_noerryet false put
  20. 30 90 moveto
  21. 30 122 lineto
  22. 570 122 lineto
  23. 570 90 lineto
  24. closepath
  25. 1 setgray fill
  26. 0 setgray
  27. 30 110 moveto 
  28. /Helvetica findfont 14 scalefont setfont 
  29. (POSTSCRIPT ERROR: ) prt errorname prt ( ) prt
  30. (OFFENDING COMMAND: ) prt /command load prt
  31. 30 95 moveto
  32. (VMSTATUS max: ) prt vmstatus dup prt
  33. ( avail: ) prt exch sub prt
  34. ( level: ) prt prt
  35. } stopped 
  36. pop 
  37. /md where { 
  38. pop
  39. md type /dicttype eq { 
  40. (ioerror) errorname ne{systemdict /showpage get exec}if
  41. } if
  42. } if
  43. } if 
  44. }if 
  45. end
  46.  }
  47.  put
  48. }if
  49. %.
  50. /overlapmark{
  51.  -4 xs div 0 rlineto 
  52.  4 xs div 2 div -7 ys div 2 div rmoveto
  53.  0 7 ys div rlineto 
  54.  4 xs div 0 rlineto 
  55.  0 -7 ys div rlineto 
  56.  -4 xs div 0 rlineto
  57.  .2 xs div setlinewidth 
  58.  0 setseparationgray stroke
  59. }bdf
  60. /amsub{gsave setlinewidth 4 2 roll rmoveto rlineto stroke grestore}bdf
  61. /am{
  62.  newpath 
  63.  moveto     
  64.  0 setseparationgray
  65.  gsave   
  66.  currentpoint 5 xs div 0 360 arc   
  67.  .3 xs div setlinewidth 
  68.  stroke 
  69.  grestore 
  70.  gsave
  71.  currentpoint 3 xs div 0 360 arc   
  72.  fill
  73.  grestore
  74.  3 xs div 0 5 xs div 0 .3 ys div amsub 
  75.  -3 xs div 0 -5 xs div 0 .3 ys div amsub 
  76.  0 3 ys div 0 5 ys div .3 xs div amsub 
  77.  0 -3 ys div 0 -5 ys div .3 xs div amsub 
  78.  1 setseparationgray
  79.  -3 xs div 0 6 xs div 0 .3 ys div amsub 
  80.  0 -3 ys div 0 6 ys div .3 xs div amsub 
  81. }bdf
  82. /fhcbox {
  83.  xt yt moveto
  84.  13.5 xs div 0 rlineto
  85.  0 13.5 ys div rlineto
  86.  -13.5 xs div 0 rlineto
  87.  0 -13.5 ys div rlineto
  88.  gsave fill grestore
  89.  0 setseparationgray stroke 
  90.  dup length 0 ne {
  91. 0 setseparationgray
  92. dup stringwidth pop neg 13.5 xs div add 2 div xt add yt 5 ys div add moveto show
  93.  }
  94.  {pop} ifelse
  95.  xs div xt add /xt xdf
  96. }bdf
  97. /fhcb {
  98.  0.25 xs div 0.25 ys div add 2 div setlinewidth
  99.  2 copy  
  100.  
  101.  
  102.  
  103.  6.75 ys div sub /yt xdf
  104.  25.5 xs div sub /xt xdf
  105.  
  106.  0 1 10 { 
  107. 10 div setseparationgray
  108. -13.5 () fhcbox
  109.  }for
  110.  
  111.  
  112.  
  113.  6.75 ys div sub /yt xdf
  114.  12 xs div add /xt xdf
  115.  
  116.  /Helvetica findfont 5 ys div scalefont setfont
  117.  1 0 0 0 setcmykcolor 13.5 (C) fhcbox
  118.  0 1 0 0 setcmykcolor 13.5 (M) fhcbox
  119.  0 0 1 0 setcmykcolor 13.5 (Y) fhcbox
  120.  1 1 0 0 setcmykcolor 13.5 (CM) fhcbox
  121.  0 1 1 0 setcmykcolor 13.5 (MY) fhcbox
  122.  1 0 1 0 setcmykcolor 13.5 (CY) fhcbox
  123.  1 1 1 0 setcmykcolor 13.5 (CMY) fhcbox
  124.  0 0 0 1 setcmykcolor 13.5 (K) fhcbox
  125. }def 
  126. /mybleed{bleed 0 eq{wdist 10 sub xs div}{bleed}ifelse}bdf
  127. /cm{mybleed neg 0 rmoveto -9 xs div 0 rlineto
  128. 9 xs div mybleed add mybleed neg rmoveto 0 -9 ys div rlineto
  129. .3 xs div setlinewidth 0 setseparationgray stroke}bdf